home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2001 October / october_2001.iso / Site Building / Html Notes 1.19 / HTMNOTES.EXE / file0026.bin < prev    next >
Encoding:
Text File  |  2001-08-18  |  2.0 KB  |  54 lines
  1. <SCRIPT LANGUAGE="JavaScript">
  2. <!-- // Beginning of JavaScript Applet -------------------
  3.  
  4. // Copyright (C)1996 Web Integration Systems, Inc. DBA Websys, Inc. All Rights Reserved.
  5. // This applet can be re-used or modified, if credit is given in the source code.
  6. // Chris Skinner, January 30th, 1996.   Hacked for CNNfn by RD, Jan. 31, 1996
  7.  
  8. function scrollit_r2l(seed)
  9. {
  10.         var m1  = "...... Welcome to Big Wave Dave's Delphi Destination ......";
  11.         var m2  = "                                                           ";
  12.         var m3  = "........... Coming to you from the ALOHA State ............";
  13.         var m4  = "                                                           ";
  14.         var m5  = "........... Check back frequently for updates .............";
  15.         
  16.         var msg=m1+m2+m3+m4+m5;
  17.         var out = " ";
  18.         var c   = 1;
  19.  
  20.         if (seed > 100) {
  21.                 seed--;
  22.                 var cmd="scrollit_r2l(" + seed + ")";
  23.                 timerTwo=window.setTimeout(cmd,100);
  24.         }
  25.         else if (seed <= 100 && seed > 0) {
  26.                 for (c=0 ; c < seed ; c++) {
  27.                         out+=" ";
  28.                 }
  29.                 out+=msg;
  30.                 seed--;
  31.                 var cmd="scrollit_r2l(" + seed + ")";
  32.                     window.status=out;
  33.                 timerTwo=window.setTimeout(cmd,100);
  34.         }
  35.         else if (seed <= 0) {
  36.                 if (-seed < msg.length) {
  37.                         out+=msg.substring(-seed,msg.length);
  38.                         seed--;
  39.                         var cmd="scrollit_r2l(" + seed + ")";
  40.                         window.status=out;
  41.                         timerTwo=window.setTimeout(cmd,100);
  42.                 }
  43.                 else {
  44.                         window.status=" ";
  45.                         timerTwo=window.setTimeout("scrollit_r2l(100)",75);
  46.                 }
  47.         }
  48. }
  49. // -- End of JavaScript code -------------- -->
  50. </SCRIPT>
  51.  
  52. <body onload="scrollit_r2l(9)">
  53.  
  54.